home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / drdobbs / 1987 / 08 / sob.exp < prev    next >
Text File  |  1987-08-12  |  773b  |  39 lines
  1.  
  2. IF <expression> THEN
  3.    <sequence of statements>
  4. ELSEIF <expression> THEN
  5.    <sequence of statements>
  6. ELSE
  7.    <sequence of statements>
  8. END IF
  9.  
  10. Example 1: General syntax of entended IF statement
  11.  
  12.  
  13.  
  14. INPUT "Enter Character ";A$
  15. IF A$ = "" THEN A$ = " "
  16. A$ = LEFT$(A$,1)
  17.  
  18. SELECT CASE A$
  19.  
  20.    CASE "+"
  21.       PRINT "Plus sign"
  22.    CASE "!","@","#"
  23.       PRINT "Special symbols"
  24.    CASE "a" to "z"
  25.       PRINT "Lower case"
  26.    CASE "A" to "Z"
  27.       PRINT "Upper case"
  28.    CASE "0" to "9"
  29.       PRINT "Digits"
  30.    CASE is < CHR$(27)
  31.       PRINT "Control character"
  32.    CASE is > CHR$(127)
  33.       PRINT "Extended ASCII set"
  34.    CASE ELSE
  35.       PRINT "Not classified by this program
  36. END SELECT
  37.  
  38. END
  39. Example 2: Short program to demonstrate SELECT CASE